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Figure 5. System Parameter File page 1 
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<?XML VERSIOW«"1.0"?> 
<GENERAL> 
<DCMAINS> 

<D<>IAIN NAME="XML*'> 
<_STYLF. KEY="ELEM" 

LABEL-** Element «><%T%A>%V%C</%T></_STYLE> 
<_STyLE KBY«"PI" 

LABEL-" Processing Instruction" ><?%T%V%A?></ STYLE> 
<_STyLE KEY=«COMMENT« 

LABEL-''Comment"><! — %V — ></_STYLE> 
<_STYLE KEY«"TEXT" 

LABEL«" Text " > % V</_ST YLE> 
<_STYLE KEY=-CDATA" 

LABEL-^CDATA^'XI [CDATAl %V] ] ></_STYLE> 
<EMPTY EMPTY_STYLES=" ELEM" ><%T% A/ ></EMPTY> 
<HEADER> 

<?xnftl version-" 1.0"?></HEADER> 
<BXTENSION SYSTEM-" c : XdevVagentvievrXReleaseVAgentView" 
LABELS" View" / X/ DOMAIK> 
<DOMAIN NW4E=*»Key-Value"> 
<_STYLE KEY^^ELEM" 

LABEL"" El ement ">%T=" % V"%C</_ST YLE> 
<HEADER> 

<DOCTYPE /></HEADER></DOMAIN></DOMAINS> 
<EXEC_TYPES> 

<EXEC_TYPE KEY="SGL" 

LABEL«"SQL"/> 
<EXEC_TYPE KEY«"ADO" 

LABEL="ADO*'/> 
<EXEC_TYPE KEY="SHELL'^ 

LABEL«»'Shell«/> 
<BXEC_TyPE KEY=="JOIN" 

LABELS " Jo i n "/></ EX£C_TY PESX/ GEN ERAL> 
<DEFINITIONS> 

< DE FAULT_OUT PUT_FONT_S I Z E>2 4 </ DE FAULT_OUT PUT_FONT_SI 2 E> 
<DEFAULT_OUTPUT_FONT>Courier New</DEFAULT_OUTPUT FONT> 
<ATTR_COL_LABEL_SEP> I </ATTR__COL_LABEL_SE P> "* 
<ATTR_EXEC>_EXEC</ATTR_EXEC> 
<SPLIT_HORIZ>1</SPLIT_HORIZ> 

<NORMALIZE_NAME_REPLACE_CHARS> . /$</NORMALIZE NAME REPLACE CHARS> 
<NORMALI ZE_NAME_MAKE_UPPER>0</NORMALIZE_NAME_MAKE_UPPER> "* 
<XML_CHARJ^P><« [ >«] </XML_CHAR_MAP> 

<TRBE_VIEW_FORMAT>Type %T, Attrs: %A, Value=%V</TREE VIEW tORMAT></DEFINITIONS> 
<VOCABULARIES> ~ " 

CVOCAB KBY"-ALL'* 

LABEL="A11«> 
Ottribute name=="ID"/> 
Ottribute name-*'_JOIN_KEY'*/> 
Ottribute name='*_JOIN_LABEL"/> 
<attribute values^^Outer Inner" 

presence*"" IMPLIED" 

atttype*" ENUMERATION" 

name=" _JOI N_T Y PE " 

de1:ault:«"Outer"/> 
Ottribute naine="_CASE"/> 
Ottribute name=="_SWITCH"/> 
Ottribute name="_SORT_BY'V> 
<attribute valu€s="YES NO" 

presence=** IMPLIED" 

a t t t ype» " ENUMERAT ION " 

name="_CHILDREN_THREADS" 

ciefault-"YES"/> 
Ottribute values*" YES NO" 

pr esen ce» " IM PLIED" 

at T:type«" ENUMERATION" 

name=-"_SKIP" 

default="YES"/> 
Ottribute values="YES NO" 

presence^" IMPLIED" 

atttype=»"ENUMERATION" 

name-" HIDE VALUE" 
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72 dezault«"YES''/> 

73 <attribute vaiues='*DAO ODBC ADO XML XDF** 
7 4 presence=="IM PLIED" 

75 atttype»"ENUMERATION** 

76 narne=" OBTYPE" 

77 clefault=*'ODBC-/> 

78 <at tribute name»"_DBID"/> 

79 <attribute values«"yES NO XML" 

80 presence**" IMPLIED* 

81 at ttype«" ENUMERATION" 

82 name="_PARSE" 

83 default="yES'V> 

84 <attribute name«"_IMPORT'V> 

85 <attribute name="_MAX_ROWS"/> 

86 <attribute values««XML ITD XDF TEXT" 

87 presence-" IMPLIED" 

88 atttype--"ENUMERATION" 

89 name="_IMPORT TYPE" 

90 default«"XML"7> 

91 <eleinentType id="BELLEVUE«> 

92 <any/></elementType> 

93 OlementType id-"REDMOND"> 

94 <any/></elementType> 

95 <eleinentType id^" SEATTLE "> 

96 <any/></elementType> 

97 <elementType id«"FORSALE"> 

98 <any/></elementTyp€> 

99 <elementType id="DBDEFINITI<»I"> 

100 <string/></elementType> 

101 <elementType id="DBJOIN"> 

102 <any/></elementType> 

103 <eleraentType id="INPUT"> 

104 <string/></elementType> 

105 <€lementType id="PROBLEM"> 

106 <any/></elementType> 

107 <eleinentType id«"GENERAL"> 

108 <any/></eleroentType> 

109 <elementType id«"CUSTOMER"> 

110 <any/></elementType> 

111 <elemeatType id=" PROPERTY" > 

112 <any/></elementType> 

113 <elementType id= '^CONTACT "> 

114 <any/></elementType> 

115 <elementType id=*'COMPONENT"> 

116 <any/></elementType> 

117 <eleraentType id-" Agent Logout "> 

118 <any/></elementType> 

119 <elementType id=" Agent Ready "> 

120 <any/></elementType> 

121 <elementType id«"AgentNotReady"> 

122 <any/></elementType> 

123 <elementType id="AgentNotBusy"> 

124 <any/></eleinentType> 

125 <eleinentType id«"Established"> 

126 <any/></ele[nentType> 

127 <elementType id«"CallInbound"> 

128 <any/></elementType> 

129 <elementType id="CailOutbound"> 

130 <any/></elementType> 

131 <eleraentType id«="CallWorJc"> 

132 <any/></elementType> 

133 <elementType id="Released"> 

134 <any/></eleinentType> 

135 <eleroentType id«"CallHold"> 

136 <any/>v:/eiementType> 

137 <ELEMENTS> 

138 <0BDEFINITION ICON_INDEX="i42" 

139 LABEL="Dat abase "/> 

140 <INPUT ICON_INDEX="i43" 

141 LABEL=" Input Parameter" /></ELEMENTS></VOCAB> 

142 <VOCAB content="CLOSED" 
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KBY=**PROB** 
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LABEL^*** Problem Log"> 
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<attribute name="_JOIN_KEY*'/> 
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<at tribute name='*_JOIN_LABEL"/> 




147 


Ottribute values="Outer Inner" 




148 


presence**" IMPLIED" 




149 


att:type= " ENIMBRATI^ " 




150 


naine»'*_JOIN_TYPE** 




151 


de f a ul t***Out er *■ / > 
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<attribute name="j:ASE"/> 
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<attribute name»*"__SWITCH**/> 
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<at tribute naine="_SORT_BY"/> 
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Ottribute values='*YES NO" 
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<string/></ el ementType> 
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<s t r i ng/ ></ el ementType> 




169 
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170 
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<elementType id="LOGOUT'*> 




172 


<any/></ eleinentType> 
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<elementType id="READY''> 




174 


<any/><:/eiementType> 


ss 
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<elementType id="KOTBUSY''> 




176 


<a ny/ ></ e 1 einentType> 
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<elementType id»- NOTRE AOY*'> 




178 


<any/></elementType> 
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<ELEMENTS> 




180 


<DBDEFINITION ICON_INDEX^'*14 2'' 




181 


LABEL="Database''/> 


if 1 


182 


<INPUT ICON_INDEX="143" 




183 


LABEL=»" Input Parameter**/></ELEMENTS></VOCAB> 




184 


<VOCAB DTD=«news.dtd" 




185 


KEY=-SCRI PTI NGNEWS" 




186 


LABEL=" Scr i pt i ngNews-DT D" / >< / VOCABULARIES> 




187 <ELEMENTS> 




188 


<BELLEVUE ICON INDEX-^ISS" 




189 


LABEL«"Bellevue"/> 




190 


<CUSTOMER ICON_INDEX=^'*138*' 




191 


LABEL=s**Cus tome r** / > 




192 


<DBDEFINITION ICON INDEX«**14 2" 




193 


LABEL="Database**/> 




194 


<rORSAL£ ICON INDEX=**139" 




195 


LABEL-- For Sale*'/> 




196 


<GENERAL ICON INDEX="14S" 




197 


LABEL- "Gene r a 1 " / > 




198 


<INPUT ICON_INDEX='*14 3" 




199 


LABEL=** Input Parameter'*/> 




200 


<DBJOIN ICON_INDEX=**144" 




201 


LABEL="Join Children**/> 




202 


<PROBLEM ICON INDEX'=**147" 




203 


LABEI^** Problem" 
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Figure 13. Join Code page 1 



// this code called from within Process Element, at the point where we need to check if 
JOIN is requested. 

// execute any intermediate level nodes 

if (sExecType.CompareNoCase{TOKEN_JOIN) 0} { 
CTreeltem ♦pBaseltem, *pJoinItem; 
CString sJoin; 
est ring sJoinKey; 
CString s Join Label; 
JoinType joinType; 
POSITION base Pes; 

// parameters for the join: 
// JOIN_TYPE: INNER, OUTER 

// JOINKEY: the key used to check the join condition 
// JOIN_LABEL: the new key for the joined row 

// find join parameters 

SearchAttributeValue (CString (TOKEN JOIN_TYPE) ,sJoin) ; 
if {sJoin.CompareNoCase(TOKEK__JOIN_OUT£R) 0} 
joinType = Outer Join; 

else 

joinType « InnerJoin; 
// get join key 

SearchAttributeValue (CString (TOKEN_JOIN_KEYl , sJoinKey) ; 
// get join label 

SearchAttributeValue {CString (TOKEN_JOIN_LABEL) , sJoinLabel ) ; 

// take the first child as the source of the join, 
// join the second 

basePos = m_childList,GetHeadPosition () ; 

pBaseltem* {CTreeltem *} m_childList .GetNext { basePos ); 

while (basePos NULL} { 

pJoinltem * (CTreeltem m_childList.GetNext { basePos ); 

pBaseltem - pBaseItem->Join {pJoinItein,sJoinKey, sJoinLabel, joinType) ; 

ASSBRT_VALID (pBaseltem) ; 

) 

// now prune all children and replace with the new base 

for (pes = m childList-GetHeadPositionO ; {prevPos « pos) !«= NULL; ) { 

pChildltem « (CTreeltem *) m_chi IdList . GetNext < pos ); 

m_childList.RemoveAt ( prevPos ); // remove what's at prevPos 

delete pChildltem; 

} 

// add the generated children to this node 

for {pos « pBaseItem~>m_childList.GetHeadPosition( ) ; (prevPos « pos) !« NULL; ) ( 
pChildltem = {CTreeltem *) pBaseItem->m_childList.GetNext (pos) ; 
pChildItero->ro_pParent ~ this; // reset the parent 
AS$ERT_VALID{pChildIt€m] ; 
m_childList.AddTail{ pChildltem! ; 

pBaseIteir->m_childList.RemoveAt( prevPos ); // remove what's at prevPos 
ASSERT_VALI D (this ) ; 



) // end TOKEN_JOIN 



///////////////////////////////////////////////////////////////////////////// 
// Join - join the input subtree children with the current subtree's children, 
// returning a new subtree as the result. The resulting parent is a copy of 
// 'this', with joined children 

CTreeltem *CTreeItem: : Join (CTreeltem *pJoinTree, 

CString sJoinKey, // key to join on 

CString sRowLabel, // new row label 

JoinType joinType) 

{ 

POSITION posO; 

CTreeltem ♦pItemO, *pNewSubtree, ♦pSubtreeO, ♦pSubtreel; 
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ASSERT_VALID(pJoinTree) ; 

// operate on the longest list as the source 

if <m_childList .GetCount ( ) >- pJoinTree->m_childList .Get Count () ) { 
pSubtreeO = this; 
pSubtreel ^ pJolnTree; 

) 

else { 

pSubtreel = this; 
pSubtreeO = pJoinTree; 

} 

// create the join subtree to hold results 

pNevrSubtree = new CTreeItein{m_sKey, m_sValue, m_at:tcList, m_ppa rent ) ; 
// now do listO JOIN listl 

for (posO » pSubtreeO->m_childLlst.GetHeadE^osition{ ) ; posO I- NULL; J { 
CTreeltem *pKeyItein, *pTargetIteni, *pMergedItem; 

^. pItemO « ^CTreeltem *) pSubtreeO->in_childLlst*6etNext (posO) ; 

f^h // find the value of the row's Join Key item. 

pKeyltem « pItemO->SearchSubtree ( 

5 J {est ring) TOKEN JWILDCARD + "/* + sJoinKey, TOKEN_WILDCARO) ; 

Isl. //as long as ve find a join key, try and join 

l'^ if ipKeylteiT) { 

1^^ // search the join subtree for •'♦/♦/JOIN_KEy/pKeyIteni->in_sValue" 

f i if ( (pTargetltem - pSubtreel">SearchSubtree ( 

yi (est ring) TOKEN_WrLDCARD +••/♦• 

ly + TOKEN_WILDCARD + 

fi \ + sJoinKey, 

^ ^ pKeyItem->m__sValue} ) NULL) { 

% // ve have a join on this "row" 

^■s, CTreeltem *pNewItem « new CTreeItem(*pItemO) ; 

I \ pNewItem->m_pParent — pNewSubtree; // set the parent 

¥^ if tIsRowLabel.IsEinptyO) 

I^L pNewrtem->ni_sKey « sRowLabel; 

IrV // merge for the join. Note that pTargetltem points to the 

f5 // item containing the join key. We want to join at the row 

f; // level, which is the parent of this node. 

pMergedltem = pNewItem~>Merge (pTargetItem->m_pParent ) ? 

delete pNewItem; 

pMergedItem-'>RemoveDups { ) ; // remove any dup children 

// add the joined child to the new parent 
pMergedItem->mjpParent *= pNewSubtree; 
ASSERT_VALID( pMergedltem) ; 

pNewSubt ree~>m_childList . AddTail (f^ergedltem) ; 

} 

else if (joinType == OuterJoin) ( 

CTreeltem *pNewItem « new CTreeItem{*pIteroO) ; 
pNewItem->m_pParent = pNewSubtree; 
pNewItem->m_sKey •» sRowLabel; 
pNewSubtree->m_childList . AddTa i 1 { pNewItem) ; 

) 

) 

else if (joinType OuterJoin) { 

CTreeltem *pNewItem « new CTreertem(*pItemO) ; 
pNewItem->ra_pParent = pKewSubtree; 
pNewIterp->m_sKey = sRowLabel; 
pNewSubt cee~>m_childList .AddTail (pNewItem) ? 

> 



// return the joined tree 
ASSERT_VALID ( pNewSubt r ee ) ; 
return pNewSubtree; 
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//////////////////// n /////// //n// /////////////// /////////////////////////// 

// Merge - Merge 'this* children with the input children, returning a newly 
// created subtree 

CTreeltem *CTreeIterr.: :Merge (CTreeltem *pMergeTree) 
{ 

CTreeltem *pTreeItem = new CTreeltem ( *this } ; // copy current tree 
POSITION pos; . 

CTreeltem *pChildItem, *pNewChild; 
// copy each subtree to target 

for <pos « pMergeTree->ro_childList.GetHeadPosition{] ; pos != NULL; ) { 
pChildltem - (CTreeltem *) pMergeTree->m_childList,GetNext ( pos ); 
pNewChild = new CTreeItem{*pChlldItem) ; 
pNewChild->ir_pParent - pTreeltem; 
pTreeltein->ir_childList,AddTail (pNevrChild) ; 

} 



return (pTreeltem) ; 

rg ///////////////////////////////////////////////////////////////////////////// 

'^^ // Remove Dups ~ remove and delete duplicate children. Two children are 

// considered dups if they have the same sKey, sValue, and sAttributes 
r, . VOID CTreeltem: : Remove Dups ( J 

. ( 

rj POSITIW pos, posl, prevPos; 

k1 CTreeltem *pTreeItein, *pTargetItem; 

PJ 

// for each child, remove any dup later in the list 
^ for (pos » in_childList«GetHeadPosition{ J ; pos !« NULL; } { 

hk pTargetltem » (CTreeltem *) m_childList.GetNext ( pos ); 

// see if target is anywhere else in list, remove if so 
|s|r posl — pos; 

J s while ( (prevPos « posl^ i« NULL) ( 

V?? pTreeltem = (CTreeltem *) m_childList .GetNext ( posl )? 

ifl if {pTreeItem->m_sKey pTargetItem->m_sKey 

rr &£ pTreeItem->m_sValue == pTargetItem->m_sValue 

W"^ pTreeItem->m_attrList == pTargetItem->m_attrList ) { 

m_chilQList . RemoveAt { prevPos ); // remove at prevPos 

delete pTreeltem; 

) 

) 



///////////////////////////////////////////////////////////////////////////// 
// SearchSubtree - find the first tree item in the subtree given the path 
// The subtree path may contain the wildcard character '*', which indicates 
// all children of that node should be searched. 

// Example: SearchSubtree ("*/CUST_ID", "000128") searches all children 

// of the current subtree 'this' for the first child with key 'CUST ID' and 

// value • 000128*. 

CTreeltem *CTreeIteir: : SearchSubtree (CString sSearchPath, CString sValue) 
I 

BOOL path End; 

CString sKey, sRemains; 

int iLoc; 

POSITION pos; 

CTreeltem *pChlldItem, •pFound; 



// search all children for the given path component 
iLoc - sSearchPath.Find(SLASH_CHAR); 
if (iLoc >= 0) { 

sKey = sSearchPath. Left (iLoc) ; 

sRemains « sSearchPath. Mid (ILoc + 1); 

pathEnd » FALSB; 
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else { 

sKey « sSearchPath; 
pathEnd = TRUE; 

} 

// if we're at the end of the path, check to see if this node is it* 
if (pathEnd) { 

// we have a match if: 

// 1) exact match, 2) sKey is wildcard and value matches, 
// 3) sKey matches and sValue is wildcard, 4) both wildcard 
if ({m_sKey sKey m__sValue sValue) 

I I (sKey « TOKEN_WILDCARD m_sValue sValue) 

I I (m sKey == sKey sValue == TOKEN_WILDCARD) 

I I (sKey TOKEN_WILDCARD sValue — TOKENJWILDCARD) ) 

return this; 

> 

// for each child, remove any dup later in the list 

for (pos « m_childList.GetHeadPosition{); pos !- NULL; ) { 

. pChildltem « (CTreeltem *) m_childList, GetNext ( pos ); 

// not the end of path, so keep searching if this is allowable path 

m if {sKey | i sKey === pChildItem->m_sKey) { 

J;? if ({pround = pChi ldItem->SearchSubtree{sRemains, sValue ) ) !== NULL) 

^fi? return p Found; 

) 



// if we got here and we're at the end of the path, we didn't find it 
return NULL; 



} 
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nunnffifiunffffnn/uffffnffUfffi/iiffnnuiUfnfnuunnf/nfn 

// find and replace all substitution strings. A substltutable token has the form 
// %%REF. %% represents the token prefix, which can be changed by setting the 
// parameter TOKEN_PREFIX. REF is an internal document reference of the form 
// <complex-path>.<attr>. The character is the attribute specifier, and can be 

// changed by setting the ATTR_DESIGNATOR system parameter. 
// See CTreeltem: iGetTreeltemComplexPath for complex-path definition. 
//If <complex-path>. is omitted, /INPUT. <attr> is assumed, and the token 
// evaluates to the attribute value of <attr> in the INPUT element. If a path 
//is given with no <attr>r then the token evaluates to the value of the resulting 
// element. Some examples: %%FILENAME is transformed to /INPUT . FILENAME, which 
// evaluates to the value of the FILENAME attribute in the INPUT element. 
// ../ITEM. ID evaluates to the value of the ID attribute in the current parent's 
// ITEM element. 
^CString CTreeltem: : Substitution tCString fiinput, bool bKeyMap) 

/ t ^402 
400 

est ring sRemains - input? 
CString sToken, sResult; 
est ring sDef, sValue; 
CTreeltem *pDefItem, *pRoot? 
bool bReplaceSpecial«FALSE; 
_TCHAR cReplace; 
int iLoc«0, iLocl, len; 
CString sAttr, sPath, sLast? 



len = sRemains.GetLength( J ; 
sResuit « input; 

// search for the INPUT element 
pRoot ~ TreeRoot ( ) ? 

// parse the input string for replacement tokens 
do ( 

sRemains - sResult; 
iLoc - sRemains. Find (TOKEN^PREFIX); 
if (iLoc < 0) //all substitutions performed 
break; 



iLoc TOKEN_PREFIX_LEN; 
sRemains = sRemains -Mid ( iLoc) ; 



// get end of line or space to end this token 
sToken sRemains. Spanlncluding iPARAM_CHARS) ; 

// if this is single name token, put in special-case defaul-s 
// this is a deprecated feature that will soon go away! 
if [sToken.SpanExcluding(TOKEN_NAME_CHARS) .IsEmpty( ) ] { 
sAttr = sToken; 

pDeflteir « pRoot->FindChildElement {TOKEN__INPUT) ; 

) 

else { 

// Split token into path-last-attr parts 
// find the last path component 

if tULocl - sToken. ReverseFind{SLASH_CHAR) ) 0) { 

sLast = sToken-Mid { iLocl ) ; // note: don't discard V* 
sPath « sToken. Leftf iLocl } ; 

) 

else { 

sLast = sToken; 
sPath = ""; 

// split attr from sLast 

if ((iLocl « sLast.ReverseFind(ATTR_DESIGNATOR) ) >* 0) { 
sAttr - sLast.Hid{iLocl+lJ; 
sLast = sLast .Left (iLocl ) ; 

} 

else { 

sAttr « 
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) 

// now put the path back together 
sPath = sPath + sLast; 

// get the tree item. If full path given, search from root, otherwise 
// relative path from current tree item 
if [sPathtO] »•= SLASH_CHAR) 

pDefltem - pRoot->GetTreeIteinComplexPath{sPath) ; 

else 

pDefltem = GetTreeItemCk>mplexPath(sPath) ; 

} 

if (pDefltem) { 

// get the substitution value 
if {sAttr.IsEmpty( ) J 

sValue » pDefItem->m_sValue; 

else 

pDe£Item->ro_att rList . Lookup { sAttr, s Value 1 ? 

} 

else 

sValue = // blank it out 



// found it, so make the substitution 
// put the sub string into the original 
sResult = sResult.Left{iLoc-TOKEN_PRBFIX_LEN) 
+ sValue 

+ sResult.MidtiLoc + sToken . GetLength U ) ; 



} while <TRUE); 

// perform the character mappings, if requested 
if (bKeyMap) { 

// substitute any mapped characters 

est ring sMap; 

sMap. Format (XML_CHAR_MAP) ? 
//do basic error checking 

if (sMap.GetLengthO ) { ^ 

if (sMaptO} !» DEFINE_CHAR fi& sMap tsMap.GetLength ( ) -1] 1= DEFINE_CHAR) 

int iMap; 

len = sRemains.GetLengthO ; 
sRemains sResult; 
do { 

iMap « sMap.Find(DEFINE_CHAR); 
if tiMap <» 0> 
break; 

// set flag to replace special chars 

if {sMapliMap-1] === XML_SPECIAL_RBPLACE_FLAG) { 

bReplaceSpecial = TRUE; 

cReplace « sMap liMap+l] ; 

} 

else { 

// replace all instances 
do { 

ILoc sRemains. Findi sMap(iMap-l] ) ; 
if (iLoc < 0) // all substitutions performed 
break; 

sRemains . SetAt { iLoc, sMap { iMap+1 1 ) ; 
} while {TRUE); 

) 



sMap = sMap.Mid{iMap+21 ; 
) while (TRUE); 



) 



// replace ail special chars if indicated 
unsigned Long ch » XML_SPECIAL_CHAR_VALUE; 
if tbReplaceSpecial ) { 

for (iLoc = 0; iLoc < sRemains .GetLength () ; iLoc++) 
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if ((unsigned) sRemains (ILocl > ch} 
sRemains.SetAt(lLoc,cReplace) ; 



return sReraains; 

} 

UiiiiUintifHinifiinfnu/ffidifnfununfffifnffunfn/ff/nfff/if 

it Get: the first subtree at the specified complex-path. A complex-path 
// has coK^nents of form /KEY:ID-«VAL1"/SUBKEY: IE>="999"/ . . . Only a single 
// attribute is supported currently, but this may be expanded in the future 
// to support any number of keys. As a shortcut, if attribute name is left out, 
// »ID' is assumed, e.g. above example is same as /KEY: "VAL1«/SUBKEY : " 999" . 
// The path may be relative, using path component to represent the current 

// directory, to represent a parent directory. Leading represents 

// the root of the tree. ^410 
// Return NULL if not found. 
^CJTreeltew *CTreeItem: :GetTreeItemComplexPath{CString sPath) 

f t 

4-01 BOOL pathEnd; 
^ CString sKey, sRemains, sIdAttr, sIdValue; 

int iLoc; 

int ilndex, iChild; 

BOOL bAttr= FALSE, bIndex«rAI#SE; 

POSITION pos; 

CTreeltem *pChi Idltem, *pFound; 
// check for reference to parent 

if lsPath[0] -«« DOT_CHAR &« sPath[lI == E)OT_CHAR) { 
ASSERT_yALIC (m_pParent ) ; 
sPath « sPath.Mid(2); 

return m_pParent->GetTreeItemComplexPath { sPath) ; 

} 

// search all children for the given path component sKey. Strip leading '-/' 
if (sPath[03 — DOT_CHAR) 

sPath « sPath.Mid(l); 
if (sPath[OJ SLASH_CHAR) 

sPath = sPath,Mid(l); 
iLoc = sPath.Find(SLASH_CHAR); 
if {iLoc >= 0) { 

sKey = sPath. Left (iLoc) ; 

sRemains = sPath , Mid { iLoc + 1); 

pathEnd = FALSE; 

\ 

else { 

sKey = sPath; 
pathEnd = TRUE; 

> 

// within the path component sKey, separate out the identifying attr-value pair(s) 
if ((iLoc = sKey.Find(ATTR_DESIGNATORJ ) >= 0) { 
bAttr = TRUE; 

sIdAttr = sKey.Mid(iLoc+l); 
sKey « sKey,Left (iLoc) ; 

// find attribute value. If vfe have single value instead of **ID=val*' form, 
// then assume the attribute is "ID", and only value is supplied. 

if ({iLoc = SIdAttr. Find ( EQU AL_CHAR ) ) 0) { 
sIdValue - sIdAttr .Mid ( iLoc+1 ) ; 
SIdAttr = SIdAttr. Left (iLoc); 

else { 

sIdValue = sIdAttr; 
SIdAttr = ATTR_ID; 

) 

StripQuotes (sIdValue) ; 
else if (iiLoc = sKey . Find ( INDEX^^DESIGNATOR) } >- 0) { 
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// hash mark indicates a 1 -based index 

CString sindex; 

bind ex = TRUE; 

slndex = sKey .Mid < iLoc+1 ) ; 

sKey « sKey.Left (iLoc) ? 

ilndex « atoi (slndex) ; 

} 

else 

bAttc = FALSE; // no attribute search at this level 



// 

// for each child, search for match and proceed with lower level search 

// If children are indexed on ID, lookup the child directly, otherwise, search 

// children. 

if (m_chiidLookup) { 

pChildXtem = GetHashedChild(sIdValue} ; // ID is Hash value 

// not the end of path, so keep searching if this is allowable path 
if (bAttrl { 

if (sKey pChildItem->m_sKey && pChildItem->m_attrList fsIdAttrJ »- 

sIdValue} { 

if ipathEnd) 

return pchildltem; 

else if { CpFound * pChildItem~>GetTreeIteinCoroplexPath(sRemains) ) l« NULL) 
return p Found; 

} 

> 

else ( // ignore attributes 

if (sKey pChildItem~>m_sKey) { 
if (pathEndJ 

return pChildltein; 

else if { (pFound » pChildItent->GetTreeItemComplex?ath(sRemains] } NULL) 
return pFound; 

> 

} 

) 

// otherwise do a sequential search 
iChild « 0; 

for {pos = m_childLisT:.GetHeadPosition( J ; pos != NULL; ) { 
pChildltem « (CTreeltem *) m_childList -GetNext ( pos ); 
// not the end of path, so keep searching if this is allowable path 
if ibAttr) { 

if (sKey pChildItem->m_sKey && pChildIteiti->ni_attrList [sidAttrJ — 

sIdValue) { 

if (pathSnd) 

return pChildltem; 

else if {(pFound « pChildItem->GctTreertemCon^lexPath{sReinains) ) l«= NULL} 
return pFound; 

} 

} 

else if (bindex) { 

// if this is the right key, increment count and check if we're there 
if (sKey pChildItem->m_sKey «& ++iChild == ilndex) { 
if (pa th£nd) 

return pChildltem; 

else if { (pFound * pChildrtera->GetTreeItemCofliplexPath(sRemains) ) 1= NULL) 
return pFound; 

> 

1 

else { // ignore attributes, get the first of this key 
if {sKey pChildItem->m_sKey) { 
if (pathEnd) 

return pChildltem; 

else if ((pFound «= pChildItetn->GetTreeItemComplexPath (sRemains ) ) != NULL) 
return pFound; 

} 

} 

} 



// if we got here anc we're at the end of the path, we didn't find it 
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return NULL; 

) 
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